home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 003 / pssst.arc / PSPRINTS.PRG < prev    next >
Encoding:
Text File  |  1986-07-16  |  8.0 KB  |  225 lines
  1. * PSPRINTS.PRG
  2. *
  3. * A DBASE II 16BIT COMMAND FILE for printing suspenses, completed jobs,
  4. * and deleted jobs.  Includes a look-back which allows selection of a
  5. * period of time, from 1 to 4 years, and prints those completed tasks.
  6. * This should be useful for OER's or inspection planning.
  7. * Utilizes PSPRINTR for the actual work
  8. *
  9. * Version 1
  10. * By LTC Denny Hugg
  11. * ANGSC/DOS Andrews AFB MD 16 Jul 1985
  12. *
  13. * Version 2
  14. * modified by Maj Jim McMurry
  15. * ANGSC/DOSC Truax Field, WI 15 Jun 1986
  16. *
  17. DO WHILE T
  18.    ERASE
  19.    STORE 'pSSSt ARCHIVE RETRIEVAL SYSTEM' TO heading
  20.    DO PSHEADING
  21.    STORE chr(95)+chr(95) TO ln
  22.    STORE ln+ln+ln+ln+ln TO ln
  23.    STORE ln+ln+ln+ln+ln+ln+ln+ln TO ln
  24.    STORE 'CURRENT' TO p1
  25.    STORE 'COMPLETED' TO p2
  26.    STORE 'DELETED' TO p3
  27.    STORE 'PAST' TO p4
  28.    STORE 'RETURN' TO p5
  29.    STORE ' '+p1+'   '+p2+'   '+p3+'   '+p4+'   '+p5 TO lin
  30.    STORE '               (Suspenses Printed)' TO y1
  31.    STORE '       (Printed in Order Archived)' TO y2
  32.    STORE '        (Printed in Order Deleted)' TO y3
  33.    STORE '            (Years Archived Items)' TO y4
  34.    STORE '                (To Jobtrack Menu)' TO y5
  35.    STORE '0010223239' TO col
  36.    STORE 1 TO c
  37.    STORE '1' TO z
  38.    STORE '0' TO mcho
  39.    STORE t TO screen
  40.    @ 22,0 SAY gline
  41.    DO WHILE screen
  42.       @ 22,79 SAY lin + y&z
  43.       @ 23,VAL($(col,c,2)) GET p&z
  44.       CLEAR GETS
  45.       SET CONSOLE OFF
  46.       STORE '0' TO mcho
  47.       DO WHILE ' '<>mcho .AND. .NOT. mcho$'DCKM46'
  48.          WAIT TO mcho
  49.       ENDDO
  50.       SET CONSOLE ON
  51.       DO CASE
  52.          CASE mcho$('CM6')
  53.             IF c#9
  54.                STORE c+2 TO c
  55.                STORE str(val(z)+1,1) TO z
  56.             ELSE
  57.                STORE 1 TO c
  58.                STORE '1' TO z
  59.             ENDIF
  60.          CASE mcho$('KD4')
  61.             IF c>1
  62.                STORE c-2 TO c
  63.                STORE str(val(z)-1,1) TO z
  64.             ELSE
  65.                STORE 9 TO c
  66.                STORE '5' TO z
  67.             ENDIF
  68.          CASE mcho = ' '
  69.             STORE f TO screen
  70.             LOOP
  71.       ENDCASE
  72.    ENDDO screen
  73.    @ 22, 0 SAY gclearline
  74.    @ 22,79 SAY gclearline
  75.    STORE c TO gc
  76.    RELEASE ALL EXCEPT g*
  77.    DO CASE
  78.       CASE gc=9
  79.          RELEASE gc
  80.          RELEASE ALL EXCEPT g*
  81.          RETURN
  82.       CASE gc=1
  83.          STORE ' ' TO moutput
  84.          @ 22,16 SAY 'Do You Want Output To Screen Or Printer? (S/P) '
  85.          DO WHILE moutput <> 'S' .AND. moutput <> 'P'
  86.             STORE ' ' TO moutput
  87.             @ 22,64 GET moutput PICTURE '!'
  88.             READ
  89.          ENDDO
  90.          @ 22, 0 SAY gclearline
  91.          USE &gsusfile INDEX &gsusindex
  92.          STORE "@ mline,24 SAY 'S U S P E N S E   L I S T I N G'" TO header
  93.          STORE 'CURRENT' TO prompt
  94.          STORE "@ mline, 0 SAY 'DUE DATE'" TO item1
  95.          STORE "@ mline,10 SAY 'SUSPENSE ITEM'" TO item2
  96.          STORE "@ mline,66 SAY 'TASKED BY'" TO item3
  97.          STORE "@ mline,79 SAY ' '" TO item4
  98.          STORE "@ mline, 0 SAY duedate" TO data1
  99.          STORE "@ mline,10 SAY descrip" TO data2
  100.          STORE "@ mline,66 SAY origin" TO data3
  101.          STORE "@ mline,79 SAY ' '" TO data4
  102.          STORE "@ 10,28 SAY 'No Suspense Items Stored'" TO nonethere
  103.          STORE ' ' TO condition
  104.          DO PSPRINTR
  105.       CASE gc =3
  106.          STORE ' ' TO moutput
  107.          @ 22,16 SAY 'Do You Want Output To Screen Or Printer? (S/P) '
  108.          DO WHILE moutput <> 'S' .AND. moutput <> 'P'
  109.             STORE ' ' TO moutput
  110.             @ 22,64 GET moutput PICTURE '!'
  111.             READ
  112.          ENDDO
  113.          @ 22, 0 SAY gclearline
  114.          USE &gcomplfile
  115.          STORE "@ mline,25 SAY 'A C C O M P L I S H M E N T S'" TO header
  116.          STORE 'COMPLETED' TO prompt
  117.          STORE "@ mline, 0 SAY 'OPR'" TO item1
  118.          STORE "@ mline, 5 SAY 'SUSPENSE ITEM'" TO item2
  119.          STORE "@ mline,61 SAY 'DUE DATE'" TO item3
  120.          STORE "@ mline,70 SAY 'COMPLETE'" TO item4
  121.          STORE "@ mline, 0 SAY opr" TO data1
  122.          STORE "@ mline, 5 SAY descrip" TO data2
  123.          STORE "@ mline,61 SAY duedate" TO data3
  124.          STORE "@ mline,70 SAY c:d:date" TO data4
  125.          STORE "@ 10,31 SAY 'No Items Archived'" TO nonethere
  126.          STORE ' ' TO condition
  127.          DO PSPRINTR
  128.       CASE gc=5
  129.          STORE ' ' TO moutput
  130.          @ 22,16 SAY 'Do You Want Output To Screen Or Printer? (S/P) '
  131.          DO WHILE moutput <> 'S' .AND. moutput <> 'P'
  132.             STORE ' ' TO moutput
  133.             @ 22,64 GET moutput PICTURE '!'
  134.             READ
  135.          ENDDO
  136.          @ 22, 0 SAY gclearline
  137.          USE &gdelfile
  138.          STORE "@ mline,27 SAY 'D E L E T E D   I T E M S'" TO header
  139.          STORE 'DELETED' TO prompt
  140.          STORE "@ mline, 0 SAY 'OPR'" TO item1
  141.          STORE "@ mline, 5 SAY 'DESCRIPTION'" TO item2
  142.          STORE "@ mline,61 SAY 'REASON DELETED'" TO item3
  143.          STORE "@ mline,79 SAY ' '" TO item4
  144.          STORE "@ mline, 0 SAY opr" TO data1
  145.          STORE "@ mline, 5 SAY descrip" TO data2
  146.          STORE "@ mline,61 SAY reason" TO data3
  147.          STORE "@ mline,79 SAY ' '" TO data4
  148.          STORE "@ 10,27 SAY 'No Deleted Items Archived'" TO nonethere
  149.          STORE ' ' TO condition
  150.          DO PSPRINTR
  151.       CASE gc=7
  152.          ERASE
  153.          STORE 1 TO line
  154.          STORE 'LOOK - BACK SELECTION' TO prompt
  155.          DO PSPROMPT
  156.          STORE ' ' TO select
  157.          DO WHILE .NOT. select $'1234'
  158.             @ 22,21 SAY 'Select Number Of Years To Look (1-4) ';
  159.                     GET select
  160.             READ
  161.             IF .NOT. select $'1234'
  162.                STORE ' ' TO select
  163.             ENDIF
  164.          ENDDO
  165.          @ 22, 0 SAY gclearline
  166.          STORE ' ' TO moutput
  167.          @ 22,16 SAY 'Do You Want Output To Screen Or Printer? (S/P) '
  168.          DO WHILE moutput <> 'S' .AND. moutput <> 'P'
  169.             STORE ' ' TO moutput
  170.             @ 22,64 GET moutput PICTURE '!'
  171.             READ
  172.          ENDDO
  173.          @ 22, 0 SAY gclearline
  174.          STORE VAL($(gdate,1,2)) -1 TO thisyear
  175.          STORE 1 TO loops
  176.          STORE VAL(select) TO number
  177.          DO WHILE loops <= number
  178.             ERASE
  179.             STORE gaddstring + 'CM.0' + STR(thisyear,2) TO file
  180.             IF .NOT. FILE ('&file')
  181.                @ 22, 0 SAY gclearline
  182.                @ 10,29 SAY '19' + STR(thisyear,2) + ' Is Not On Record'
  183.                STORE 0 TO counter
  184.                DO WHILE counter < gdelay
  185.                   STORE counter + 1 TO counter
  186.                ENDDO
  187.                STORE thisyear - 1 TO thisyear
  188.                STORE loops + 1 TO loops
  189.                LOOP
  190.             ENDIF
  191.             USE &file
  192.             STORE "@ mline,20 SAY '1 9 '+$(STR(thisyear,2),1,1)+' ';
  193.                   +$(STR(thisyear,2),2,1)+'   A C C O M P L I S H M E N T S'";
  194.                   TO header
  195.             STORE '1 9 '+$(STR(thisyear,2),1,1)+' ';
  196.                    +$(STR(thisyear,2),2,1) TO prompt
  197.             STORE "@ mline, 0 SAY 'OPR'" TO item1
  198.             STORE "@ mline, 5 SAY 'SUSPENSE ITEM'" TO item2
  199.             STORE "@ mline,61 SAY 'DUE DATE'" TO item3
  200.             STORE "@ mline,70 SAY 'COMPLETE'" TO item4
  201.             STORE "@ mline, 0 SAY opr" TO data1
  202.             STORE "@ mline, 5 SAY descrip" TO data2
  203.             STORE "@ mline,61 SAY duedate" TO data3
  204.             STORE "@ mline,70 SAY c:d:date" TO data4
  205.             STORE "@ 10,31 SAY 'No Items Archived'" TO nonethere
  206.             STORE ' ' TO condition
  207.             DO PSPRINTR
  208.             STORE thisyear -1 TO thisyear
  209.             STORE loops + 1 TO loops
  210.          ENDDO
  211.          USE
  212.    ENDCASE
  213. ENDDO T
  214. * EOF PSPRINTS.PRG
  215. earline
  216.          USE &gcomplfile
  217.          STORE "@ mline,20 SAY 'A C C O M P L I S H M E N T S'" TO header
  218.          STORE 'COMPLETED' TO prompt
  219.          STORE "@ mline, 0 SAY 'OPR'" TO item1
  220.          STORE "@ mline, 5 SAY 'SUSPENSE ITEM'" TO item2
  221.          STORE "@ mline,61 SAY 'DUE DATE'" TO item3
  222.          STORE "@ mline,70 SAY 'COMPLETE'" TO item4
  223.          STORE "@ mline, 0 SAY opr" TO data1
  224.          STORE "@ mline, 5 SAY descrip" TO data2
  225.          STORE "@ m